home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 182 / 182.d81 / b.fight songs (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  131 lines
  1. 10 poke56,56:clr:poke53371,0
  2. 20 poke53281,0:poke53280,0
  3. 30 dv=peek(186):ifdv<8thendv=8
  4. 40 sys57812"ps6",dv,0:poke780,0:poke781,0:poke782,70:sys65493
  5. 50 sys57812"fight font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  6. 60 sys57812"wndipcm",dv,0:poke780,0:poke781,0:poke782,148:sys65493
  7. 62 sys39168,148*256,128*256,8*256
  8. 70 sys57812"sid.obj.64",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  9. 80 up=148*256:dn=up+3:cl=up+15
  10. 90 dimw$(60)
  11. 107 :
  12. 108 :rem sprites
  13. 109 :
  14. 110 v=53248:fori=960to1022:pokei,255:next
  15. 120 fori=2040to2043:pokei,15:next
  16. 130 fori=0to3:pokev+39+i,15:next
  17. 140 pokev+16,0:pokev+29,15:pokev+23,15:pokev+28,0:pokev+27,15
  18. 150 pokev,134:pokev+1,60:pokev+2,178:pokev+3,60
  19. 160 pokev+4,134:pokev+5,84:pokev+6,178:pokev+7,84
  20. 167 :
  21. 168 :rem more setup
  22. 169 :
  23. 170 ad=144*256
  24. 180 ip=38656
  25. 220 fori=0to7:readf$(i),g$(i):next
  26. 230 data"auburn","[193][213][194][213][210][206]
  27. 240 [131]"louisiana","(NULL)(NULL)(NULL)right$(NULL)right$atn(NULL)atn
  28. 250 data"tennessee","[212][197][206][206][197][211][211][197][197]
  29. 260 [131]"florida","asc(NULL)(NULL)(NULL)right$str$atn
  30. 270 data"georgia","[199][197][207][210][199][201][193]
  31. 280 [131]"kentucky","(NULL)val(NULL)(NULL)(NULL)len(NULL)(NULL)
  32. 290 data"mississippi","[205][201][211][211][201][211][211][201][208][208][201] [211][212].
  33. 300 [131]"arkansas","atn(NULL)(NULL)atn(NULL)(NULL)atn(NULL)
  34. 310 poke53272,31
  35. 317 :
  36. 318 :rem screen
  37. 319 :
  38. 320 print"[147]   [153][196]ave [205]arquis'  [213] [206] [201] [214] [197] [210] [211] [201] [212] [217]"
  39. 330 print"             [156][176][192][192][192][192][192][192][192][192][192][192][192][174]"
  40. 340 print"[176][192][174]          [156][221][144]3456789:;<=[146][156][221]           [176][192][174]";
  41. 350 print"[171][179] [178]         [156][221][144]>?[192][193][194][195][196][197][198][199][200][146][156][221]        [176][192][174][173][192][174]";
  42. 360 print"[177]  [221][176][192][174]      [156][221][144][201][202][203][204][205][206][207][208][209][210][211][146][156][221]     [176][174][176][221][176][174][173][192][189]";
  43. 370 print"   [177][221][176][174][174] [176]   [156][221][144][212][213][214][215][216][217][218][219][220][221][255][146][156][221]   [176][174][221][221][221][173][192][189]
  44. 380 [153]"    /tanexp-tan<or=^clr(NULL)stop(NULL)closegetnewtab(tofnspc(thennotstepwaitclr(NULL)ortan^(NULL)(NULL)exp/exp
  45. 390 print"       [189] [173] [221] [156][221][144][170][171][172][173][174][175][176][177][178][179][180][146][156][221][173][192][174][173][189]
  46. 400 [153]"           > clr(NULL)stopintabsusrfrepossqrrndlogexpcossinwaitclr(NULL)/tanexp
  47. 410 print"             [156][171][192][192][192][192][192][192][192][192][192][192][192][179]"
  48. 420 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  49. 430 print"[221]                                      [221]";
  50. 440 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
  51. 450 fori=0to9:print"[221]                                      [221]";:next
  52. 460 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
  53. 470 print"   [195][210][211][210] [213][208][154]/[196][207][215][206]    [210][197][212][213][210][206]   [209][154] - [209][213][201][212]"
  54. 480 fori=217to242:pokei,peek(i)or128:next
  55. 500 poke214,10:print
  56. 510 printtab(10)"[158][211][207][213][212][200][197][193][211][212] [195][207][206][198][197][210][197][206][195][197][152]"
  57. 520 poke214,13:print
  58. 530 fori=0to7
  59. 540 printtab(15)g$(i)
  60. 550 next
  61. 560 j=0
  62. 570 poke198,0:ti$="000000"
  63. 580 poke214,13+j:print:printtab(15)""g$(j)
  64. 587 :
  65. 588 :rem menu
  66. 589 :
  67. 590 ifti$<"000001"then620
  68. 600 k=k+1:ifk>6thenk=0
  69. 610 sys39168,70*256+3*k*256,15768,77*8:ti$="000000":pokev+21,15
  70. 620 geta$:ifa$=""then590
  71. 630 ifa$="q"thensys49935:pokev+21,0:print"[147]":goto40000
  72. 640 ifa$=chr$(13)then690
  73. 650 poke214,13+j:print:printtab(15)"[152]"g$(j)
  74. 660 ifa$=""thenj=j+1:ifj>7thenj=0
  75. 670 ifa$="[145]"thenj=j-1:ifj<0thenj=7
  76. 680 goto580
  77. 687 :
  78. 688 :rem load music & text
  79. 689 :
  80. 690 pokev+21,0
  81. 692 sys39168,128*256,148*256,8*256
  82. 694 ft$=f$(j)+".txt":sysip,ft$,dv
  83. 700 nl=peek(252)*256+peek(251)
  84. 710 poke214,23:print:print"  [195][210][211][210] [213][208][154]/[196][207][215][206]  [211][208][193][195][197] [154]- [206]ext  [205] [154]- [205]enu"
  85. 720 sys57812f$(j)+".mus",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  86. 740 sys49615:poke49152,0
  87. 750 poke781,0:poke782,64:sys49664:poke49152,7
  88. 760 syscl,1,13,38,10,0
  89. 770 syscl,1,11,38,1,0
  90. 780 poke214,10:print"[158]":printtab(20-len(w$(1))/2)w$(1)
  91. 790 poke214,12:print
  92. 800 fori=3to12:print"[155]"w$(i):next
  93. 807 :
  94. 808 :rem second loop
  95. 809 :
  96. 810 poke198,0:h=12
  97. 820 ifti$<"000001"then850
  98. 822 ifpeek(49152)=7then830
  99. 824 sys49897:sys49935
  100. 826 j=j+1:ifj>7then320
  101. 828 goto690
  102. 830 k=k+1:ifk>6thenk=0
  103. 840 sys39168,70*256+k*3*256,15768,77*8  :ti$="000000":pokev+21,15
  104. 850 geta$:ifa$=""then820
  105. 852 ifa$<>" "then860
  106. 854 poke49152,0:sys49897:sys49935
  107. 856 j=j+1:ifj>7then320
  108. 858 goto690
  109. 860 ifa$="m"thenpoke49152,0:sys49897:sys49935:goto320
  110. 870 ifa$<>""then920
  111. 880 h=h+1:ifh>=nlthenh=h-1:goto850
  112. 890 sysup,1,13,38,10,0
  113. 900 poke214,21:print:print""w$(h)
  114. 910 goto850
  115. 920 ifa$<>"[145]"then850
  116. 930 h=h-1:ifh<12thenh=h+1:goto850
  117. 940 sysdn,1,13,38,10,0
  118. 950 poke214,12:print:print""w$(h-9)
  119. 960 goto850
  120. 10000 d=peek(186):n$="0:b.fight songs":open15,d,15,"s"+n$:close15:saven$,d:end
  121. 40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
  122. 40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
  123. 40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  124. 40030 forj=8to29:i=peek(820+j):ifi=14thennext
  125. 40040 close2:open2,i,2:close2:ifstthen40060
  126. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  127. 40060 next:return
  128. 40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  129. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  130. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  131.